<%
'-----------------------------------------------------
'Funcao: CompactaMDB(ByVal CaminhoOrigem, ByVal CaminhoDestino)
'Sinopse: Realiza a compactação de um arquivo MDB
'Parametro(s):
'	CaminhoOrigem: Caminho origem do arquivo Access
'	CaminhoDestino: Caminho destino do arquivo Access
'Retorno: String "OK" que for executada com sucesso
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function CompactaMDB(ByVal CaminhoOrigem, ByVal CaminhoDestino)
    On Error Resume Next
    'Declarando as Variaveis
    Dim DBOrigem 
    Dim DBDestino
    Dim JRO

    'Objeto JET
    Set JRO = Server.CreateObject("JRO.JetEngine")

    'String de Conexao OLEDB
    DB_origem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoOrigem 
    DB_destino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoDestino & " ;Jet OLEDB:Engine Type=5" 

    'Metodo para Compactar
    JRO.CompactDatabase DBOrigem, DBDestino 

    'Verificando erro
    If Err.number <> 0 Then
        CompactaMDB = Err.description
    Else
        'Retorno da Funcao
        CompactaMDB = "OK"
    End If
End Function 
%>